`predError` <-
function(obj) {
    obj$testErr[length(obj$testErr)]/100.;
}

